The Macintosh Demo: Applications

home *** CD-ROM | disk | FTP | other *** search
/ The Macintosh Demo: Applications / Apple-MacintoshDemoApplicationsCD-1.0-1992.iso / More Information / Personal Press 2.0 / PPPouch / AutoCreate / Labels / _Utility < prev next >
MacBinary | 1992-06-11 | 2.0 KB | [SGPA/SCPG]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).

You can browse this item here: _Utility
Confidence	Program	Detection	Match Type	Support
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`100%`	file	MacBinary II, inited, changed, Wed Jun 10 20:00:00 1992, modified Wed Jun 10 20:00:00 1992, creator 'SCPG', type 'SGPA', 1328 bytes "_Utility" , at 0x5b0 396 bytes resource	default (weak)
`99%`	file	data	default
`100%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[SGPA]`
macFileCreator	`[SCPG]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 08 5f 55 74 69 6c 69 | 74 79 00 00 00 00 00 00 |.._Utili|ty......|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 53 47 50 41 53 43 50 | 47 03 00 00 00 00 00 00 |.SGPASCP|G.......|
|00000050| 00 00 00 00 00 05 30 00 | 00 01 8c a6 5c 48 00 a6 |......0.|....\H..|
|00000060| 5c 48 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |\H......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 40 21 00 00 |........|....@!..|
|00000080| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000090| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000d0| 2d 2d 2d 2d 2d 0d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |-----.--|--------|
|000000e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000f0| 2d 20 41 6c 6c 20 53 63 | 72 69 70 74 73 20 62 65 |- All Sc|ripts be|
|00000100| 6c 6f 77 20 61 72 65 20 | 66 72 6f 6d 20 74 68 65 |low are |from the|
|00000110| 20 53 68 61 72 65 64 20 | 53 63 72 69 70 74 20 2d | Shared |Script -|
|00000120| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 0d 0d 0d 66 75 |--------|---...fu|
|00000130| 6e 63 74 69 6f 6e 20 74 | 72 75 6e 63 74 65 78 74 |nction t|runctext|
|00000140| 20 74 68 65 74 65 78 74 | 2c 6d 61 78 63 68 61 72 | thetext|,maxchar|
|00000150| 73 0d 69 66 20 6c 65 6e | 67 74 68 28 74 68 65 74 |s.if len|gth(thet|
|00000160| 65 78 74 29 20 3c 3d 20 | 6d 61 78 63 68 61 72 73 |ext) <= |maxchars|
|00000170| 20 74 68 65 6e 20 72 65 | 74 75 72 6e 20 74 68 65 | then re|turn the|
|00000180| 74 65 78 74 0d 72 65 74 | 75 72 6e 20 63 68 61 72 |text.ret|urn char|
|00000190| 20 31 20 74 6f 20 28 6d | 61 78 63 68 61 72 73 20 | 1 to (m|axchars |
|000001a0| 2d 20 31 29 20 6f 66 20 | 74 68 65 74 65 78 74 26 |- 1) of |thetext&|
|000001b0| 22 c9 22 0d 65 6e 64 20 | 74 72 75 6e 63 74 65 78 |".".end |trunctex|
|000001c0| 74 0d 0d 66 75 6e 63 74 | 69 6f 6e 20 68 69 6c 69 |t..funct|ion hili|
|000001d0| 74 65 64 20 74 68 65 64 | 61 74 61 0d 72 65 74 75 |ted thed|ata.retu|
|000001e0| 72 6e 20 28 63 68 61 72 | 20 34 20 6f 66 20 74 68 |rn (char| 4 of th|
|000001f0| 65 64 61 74 61 20 3d 20 | 22 73 22 29 0d 65 6e 64 |edata = |"s").end|
|00000200| 20 68 69 6c 69 74 65 64 | 0d 0d 66 75 6e 63 74 69 | hilited|..functi|
|00000210| 6f 6e 20 63 6f 6e 74 65 | 6e 74 73 6f 66 20 74 68 |on conte|ntsof th|
|00000220| 65 64 61 74 61 0d 70 75 | 74 20 69 74 65 6d 64 65 |edata.pu|t itemde|
|00000230| 6c 20 69 6e 74 6f 20 4f | 6c 64 49 74 65 6d 44 65 |l into O|ldItemDe|
|00000240| 6c 0d 73 65 74 20 69 74 | 65 6d 64 65 6c 20 74 6f |l.set it|emdel to|
|00000250| 20 22 5c 22 0d 67 65 74 | 20 69 74 65 6d 20 32 20 | "\".get| item 2 |
|00000260| 6f 66 20 74 68 65 64 61 | 74 61 0d 73 65 74 20 69 |of theda|ta.set i|
|00000270| 74 65 6d 64 65 6c 20 74 | 6f 20 4f 6c 64 49 74 65 |temdel t|o OldIte|
|00000280| 6d 44 65 6c 0d 72 65 74 | 75 72 6e 20 69 74 0d 65 |mDel.ret|urn it.e|
|00000290| 6e 64 20 63 6f 6e 74 65 | 6e 74 73 6f 66 0d 0d 66 |nd conte|ntsof..f|
|000002a0| 75 6e 63 74 69 6f 6e 20 | 63 6f 6e 20 65 76 61 6c |unction |con eval|
|000002b0| 2c 61 2c 62 0d 69 66 20 | 28 65 76 61 6c 20 3d 20 |,a,b.if |(eval = |
|000002c0| 74 72 75 65 29 20 74 68 | 65 6e 20 72 65 74 75 72 |true) th|en retur|
|000002d0| 6e 20 61 0d 65 6c 73 65 | 20 72 65 74 75 72 6e 20 |n a.else| return |
|000002e0| 62 0d 65 6e 64 20 63 6f | 6e 0d 0d 0d 6f 6e 20 73 |b.end co|n...on s|
|000002f0| 65 74 66 6f 6e 74 73 20 | 66 61 6d 69 6c 79 2c 73 |etfonts |family,s|
|00000300| 69 7a 65 2c 66 61 63 65 | 0d 64 6f 20 22 73 65 74 |ize,face|.do "set|
|00000310| 20 74 65 78 74 66 6f 6e | 74 20 74 6f 22 26 26 66 | textfon|t to"&&f|
|00000320| 61 6d 69 6c 79 0d 73 65 | 74 20 74 65 78 74 73 69 |amily.se|t textsi|
|00000330| 7a 65 20 74 6f 20 73 69 | 7a 65 0d 64 6f 20 22 73 |ze to si|ze.do "s|
|00000340| 65 74 20 74 65 78 74 66 | 61 63 65 20 74 6f 22 26 |et textf|ace to"&|
|00000350| 26 66 61 63 65 0d 65 6e | 64 20 73 65 74 66 6f 6e |&face.en|d setfon|
|00000360| 74 73 0d 0d 66 75 6e 63 | 74 69 6f 6e 20 75 6e 71 |ts..func|tion unq|
|00000370| 75 6f 74 65 20 74 68 65 | 54 65 78 74 0d 70 75 74 |uote the|Text.put|
|00000380| 20 31 20 69 6e 74 6f 20 | 54 68 65 43 6f 75 6e 74 | 1 into |TheCount|
|00000390| 0d 0d 72 65 70 65 61 74 | 20 66 6f 72 65 76 65 72 |..repeat| forever|
|000003a0| 0d 70 75 74 20 63 68 61 | 72 20 74 68 65 43 6f 75 |.put cha|r theCou|
|000003b0| 6e 74 20 6f 66 20 54 68 | 65 54 65 78 74 20 69 6e |nt of Th|eText in|
|000003c0| 74 6f 20 74 68 65 43 68 | 61 72 0d 69 66 20 74 68 |to theCh|ar.if th|
|000003d0| 65 43 68 61 72 20 3d 20 | 71 75 6f 74 65 20 74 68 |eChar = |quote th|
|000003e0| 65 6e 20 0d 64 65 6c 65 | 74 65 20 63 68 61 72 20 |en .dele|te char |
|000003f0| 74 68 65 43 6f 75 6e 74 | 20 6f 66 20 74 68 65 54 |theCount| of theT|
|00000400| 65 78 74 0d 65 78 69 74 | 20 72 65 70 65 61 74 0d |ext.exit| repeat.|
|00000410| 65 6e 64 20 69 66 0d 70 | 75 74 20 74 68 65 43 6f |end if.p|ut theCo|
|00000420| 75 6e 74 20 2b 20 31 20 | 69 6e 74 6f 20 54 68 65 |unt + 1 |into The|
|00000430| 43 6f 75 6e 74 0d 69 66 | 20 28 74 68 65 43 6f 75 |Count.if| (theCou|
|00000440| 6e 74 20 3e 20 6e 75 6d | 62 65 72 20 6f 66 20 63 |nt > num|ber of c|
|00000450| 68 61 72 73 20 69 6e 20 | 74 68 65 54 65 78 74 29 |hars in |theText)|
|00000460| 20 74 68 65 6e 20 65 78 | 69 74 20 72 65 70 65 61 | then ex|it repea|
|00000470| 74 0d 65 6e 64 20 72 65 | 70 65 61 74 0d 0d 70 75 |t.end re|peat..pu|
|00000480| 74 20 6e 75 6d 62 65 72 | 20 6f 66 20 63 68 61 72 |t number| of char|
|00000490| 73 20 69 6e 20 74 68 65 | 54 65 78 74 20 69 6e 74 |s in the|Text int|
|000004a0| 6f 20 54 68 65 43 6f 75 | 6e 74 0d 0d 72 65 70 65 |o TheCou|nt..repe|
|000004b0| 61 74 20 66 6f 72 65 76 | 65 72 0d 70 75 74 20 63 |at forev|er.put c|
|000004c0| 68 61 72 20 74 68 65 43 | 6f 75 6e 74 20 6f 66 20 |har theC|ount of |
|000004d0| 54 68 65 54 65 78 74 20 | 69 6e 74 6f 20 74 68 65 |TheText |into the|
|000004e0| 43 68 61 72 0d 69 66 20 | 74 68 65 43 68 61 72 20 |Char.if |theChar |
|000004f0| 3d 20 71 75 6f 74 65 20 | 74 68 65 6e 20 0d 64 65 |= quote |then .de|
|00000500| 6c 65 74 65 20 63 68 61 | 72 20 74 68 65 43 6f 75 |lete cha|r theCou|
|00000510| 6e 74 20 6f 66 20 74 68 | 65 54 65 78 74 0d 65 78 |nt of th|eText.ex|
|00000520| 69 74 20 72 65 70 65 61 | 74 0d 65 6e 64 20 69 66 |it repea|t.end if|
|00000530| 0d 70 75 74 20 74 68 65 | 43 6f 75 6e 74 20 2d 20 |.put the|Count - |
|00000540| 31 20 69 6e 74 6f 20 54 | 68 65 43 6f 75 6e 74 0d |1 into T|heCount.|
|00000550| 69 66 20 74 68 65 43 6f | 75 6e 74 20 3c 3d 20 30 |if theCo|unt <= 0|
|00000560| 20 74 68 65 6e 20 65 78 | 69 74 20 72 65 70 65 61 | then ex|it repea|
|00000570| 74 0d 65 6e 64 20 72 65 | 70 65 61 74 0d 0d 72 65 |t.end re|peat..re|
|00000580| 74 75 72 6e 20 74 68 65 | 54 65 78 74 0d 65 6e 64 |turn the|Text.end|
|00000590| 20 75 6e 71 75 6f 74 65 | 0d 00 00 04 00 09 00 02 | unquote|........|
|000005a0| 01 90 01 4e 00 00 00 00 | 00 3c 00 14 01 42 01 ec |...N....|.<...B..|
|000005b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000600| 00 00 01 00 00 00 01 50 | 00 00 00 50 00 00 00 3c |.......P|...P...<|
|00000610| 6e 64 20 63 6f 6e 74 65 | 6e 74 73 6f 66 0d 0d 66 |nd conte|ntsof..f|
|00000620| 75 6e 63 74 69 6f 6e 20 | 63 6f 6e 20 65 76 61 6c |unction |con eval|
|00000630| 08 5f 55 74 69 6c 69 74 | 79 00 02 00 00 00 53 47 |._Utilit|y.....SG|
|00000640| 50 41 53 43 50 47 03 00 | ff ff ff ff 00 00 00 00 |PASCPG..|........|
|00000650| 00 00 53 47 50 41 53 43 | 50 47 03 00 ff ff ff ff |..SGPASC|PG......|
|00000660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000670| 00 00 a6 5c 48 00 00 00 | 05 30 00 00 01 8c 2c 73 |...\H...|.0....,s|
|00000680| 69 7a 65 2c 66 61 63 65 | 0d 64 6f 20 22 73 65 74 |ize,face|.do "set|
|00000690| 20 74 65 78 74 66 6f 6e | 74 20 74 6f 22 26 26 66 | textfon|t to"&&f|
|000006a0| 61 6d 69 6c 79 0d 73 65 | 74 20 74 65 78 74 73 69 |amily.se|t textsi|
|000006b0| 7a 65 20 74 6f 20 73 69 | 7a 65 0d 64 6f 20 22 73 |ze to si|ze.do "s|
|000006c0| 65 74 20 74 65 78 74 66 | 61 63 65 20 74 6f 22 26 |et textf|ace to"&|
|000006d0| 26 66 61 63 65 0d 65 6e | 64 20 73 65 74 66 6f 6e |&face.en|d setfon|
|000006e0| 74 73 0d 0d 66 75 6e 63 | 74 69 6f 6e 20 75 6e 71 |ts..func|tion unq|
|000006f0| 75 6f 74 65 20 74 68 65 | 54 65 78 74 0d 70 75 74 |uote the|Text.put|
|00000700| 00 00 00 4c de 75 9f 54 | 3f e5 32 30 00 04 00 00 |...L.u.T|?.20....|
|00000710| 00 00 00 00 00 00 a6 2d | 92 85 a6 1b 63 97 a6 1b |.......-|....c...|
|00000720| 4f 91 00 1c 3a 83 00 03 | 00 19 00 02 07 6c 61 62 |O...:...|.....lab|
|00000730| 65 6c 73 ba 00 07 73 74 | 65 76 65 20 63 00 01 32 |els...st|eve c..2|
|00000740| 00 08 5f 55 74 69 6c 69 | 74 79 00 00 00 00 00 00 |.._Utili|ty......|
|00000750| 00 00 01 00 00 00 01 50 | 00 00 00 50 00 00 00 3c |.......P|...P...<|
|00000760| 01 0d 2c f0 0d 3a 00 00 | 00 1c 00 32 00 00 63 6b |..,..:..|...2..ck|
|00000770| 69 64 00 00 00 0a 00 80 | 00 00 00 00 00 00 01 0f |id......|........|
|00000780| 13 00 09 50 72 6f 6a 65 | 63 74 6f 72 00 00 00 00 |...Proje|ctor....|
|00000790| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+